home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
batch
/
library
/
stackey3
/
equip.bat
< prev
next >
Wrap
DOS Batch File
|
1990-03-24
|
3KB
|
96 lines
:Batutil c(o) 1990 Barry Simon and Richard Wilson
: Version 1.0
echo off
if exist batutil.exe goto buOK
echo This demo file requires BATUTIL.EXE to be in the default drive and directory
goto end
:echo1
Welcome to the @1FBATUTIL@1E equipment reading demo
This demonstration will show how BATUTIL
can give you information on your system
:echo2
I would like to save your environment to env.tmp and
later restore it but that file exists
May I erase it (Y/N)?
:echo3
Here is what BATUTIL found when it examined your machine
Your CPU is $x(t1).
Your math coprocessor is $x(t2).
You have $x(t3) printer ports, $x(t4) comm ports and $x(t5) game ports.
You have $x(t6) floppy drives and $x(t7) monitor(s).
Your active monitor is $x(t8).
You do$x(t9) have an ANSI driver and you do$x(ta) have an enyukked keyboard.
Your DOS version times 10 rounded down is $x(tb).
Your LIM Ver times 10 is $x(tc) (0 means no LIM).
Your Carousel partition is $x(td) (0 means no Carousel).
Your Desqview partition is $x(te) (0 means no Desqview).
Your Omniview partition is $x(tf) (0 means no Omniview).
Your free DOS memory (in 4K units) is $x(tg), your total LIM memory in 64K
units is $x(th) and your free LIM in 16K units is $x(ti) [199 = 199 or more].
Total space on this disk is $x(tj) times 256K (times 16K on drives A and B).
This is only some of the information that BATUTIL can access. You can also
find out if a file exists on your path, whether a file has today's date
and even compare two files to see which is older.
Hit a key to exit the equipment demo and thanks for using BATUTIL.
:buOK
set cur=off
BATUTIL {CU -}{CLS}{RO 5}{CO 5}{FP %0 echo1}
if x%1==xfrommain goto frommain
if not exist env.tmp goto efileOK
BATUTIL {CU -}{FE %0 echo2}{CU +}{GE Y N}
if errorlevel 2 goto end
erase env.tmp >nul
:efileOK
BATUTIL {set cur=}{SA env.tmp}{KI} >nul
if errorlevel 200 goto envprob
:frommain
rem this is for calling main demo file
set cur=off
set a=
set b=
BATUTIL {RO +2}{CO 5}{EC One moment while I check out your system!}{#I}{set r1=$x(rc)}{#P}{set t3=$x(rc)}
if %r1%==20 set t1=unknown
if %r1%==0 set t1=8086/8088
if %r1%==1 set t1=80186
if %r1%==2 set t1=80286
if %r1%==3 set t1=80386
BATUTIL {@I}{set r2=$x(rc)}{#C}{set t4=$x(rc)}{#G}{set t5=$x(rc)}{#F}{set t6=$x(rc)}{#T}{set t7=$x(rc)}{#W}
if %rc%==1 set t8=monochrome (non-Hercules)
if %rc%==2 set t8=cgacolor
if %rc%==4 set t8=ega color
if %rc%==5 set t8=ega mono
if %rc%==6 set t8=prof. graphics
if %rc%==7 set t8=vga mono
if %rc%==8 set t8=vga color
if %rc%==11 set t8=mcga mono
if %rc%==12 set t8=mcga color
if %rc%==21 set t8=hercules mono
if %rc%==22 set t8=hercules monochrome plus
if %rc%==23 set t8=hercules Incolor
if %rc%==99 set t8=none of cga, ega, vga, hercules
if %r2%==0 set t2=none
if %r2%==1 set t2=8087
if %r2%==2 set t2=80287
if %r2%==3 set t2=80387
BATUTIL {@A}{set r1=$x(rc)}{#K}{set r2=$x(rc)}{DO}{set tb=$x(rc)}{LI}{set tc=$x(rc)}{CA}{set td=$x(rc)}{DV}{set te=$x(rc)}
if %r1%==1 set t9=
if %r1%==0 set t9= not
if %r2%==1 set ta=
if %r2%==0 set ta= not
BATUTIL {OV}{set tf=$x(rc)}{@M}{set tg=$x(rc)}{#L}{set th=$x(rc)}{@L}{set ti=$x(rc)}{#D}{set tj=$x(rc)}
BATUTIL {CL}{FE %0 echo3}{GE EL}{set cur=}{EC $_}
if x%1==xfrommain goto end
BATUTIL {LO env.tmp} >nul
erase env.tmp >nul
goto end
:envprob
cls
echo Problem setting up environment for this demo. Sorry.
:end